AD_LCK.asp 依悠ASP广告管理系统 v2.1 - ASP源码程序

gusucode.com > 依悠ASP广告管理系统 v2.1 > 依悠ASP广告管理系统 v2.1\code\AD_LCK.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = "AD_Conn.asp" -->
<!--#include file = "AD_Class.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn">
<title>网站后台登录</title>
</head>

<body>
<%
'===================================================================================
'依悠广告管理系统 V2.1　使用帮助
'
'帮助你把网站上的所有广告按照广告大小或位置进行分类管理，然后用本系统分配的固定Scrip代码调用设置广告,获取代码请点广告管理的预览。
'
'安装说明:
'
'1. 需要支持ASP和Access数据库的空间。
'
'2. 管理员登陆页面:index.asp,用户名为:admin，密码：admin,请安装后立即修改！
'
'3. 数据库连接地址:AD_Conn.asp
'
'4. 发现任何问题、缺陷或者有必要增加些功能请通知作者，作者会尽力改进，谢谢。
'
'5. 本软件系免费程序,提供给个人免费使用，如果用于商业用途请酌情付费支持，请不要修改作者版权。
'
'6. 如建设网站中遇到任何问题可在论坛发问，必定回复。
'
'作者：双鱼    论坛：http://www.yiuu.net     QQ:125047083   E-MAIL:otutu@126.com	
'							
'							2008年5月8日
'==================================================================================
Set Rs = Server.CreateObject("ADODB.RecordSet")

	Rs.Open "select * from ["&sqlqname&"_admin]",conn,1,1
	If Rs.RecordCount = 0 then
		conn.Execute "insert into ["&sqlqname&"_admin] (a_admin,a_pass,) values('admin','"&md5("admin")&"')"
	End If
	Rs.Close

	u_code=Trim(Request.Form("u_code"))
	If u_code = "" Then 
		Set Rs = Nothing
		conn.close:Set conn = Nothing
		Response.Redirect "Index.asp?id=3"
	End If
	u_code=Int(u_code)
	If u_code <> Session("u_code") Then 
		Set Rs = Nothing
		conn.close:Set conn = Nothing	
		Response.Redirect "Index.asp?id=3"
	End If
	Session("u_code")=""
If Request.Form("user")="" or Request.Form("pass")="" Then
		Set Rs = Nothing
		conn.close:Set conn = Nothing
		Response.Redirect "Index.asp?id=0"
Else
		user = LCase(chkhtm(Request.Form("user")))
		pass = md5(chkhtm(Trim(Request.Form("pass"))))
  
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "select * from ["&sqlqname&"_admin] where [a_admin]='"&user&"' and [a_pass]='"&pass&"'",conn,1,1
  	If Rs.RecordCount = 0 then	
		Rs.close:Set Rs = Nothing	
		conn.close:Set conn = Nothing	
		Response.Redirect "Index.asp?id=1"
	End If
  
	Session("a_user") = Rs("a_admin")
	Session("a_pass") = pass
	Response.Cookies ("a_user") = Rs("a_admin")
	Response.Cookies ("a_pass") = pass

	Rs.close:Set Rs = Nothing	
	conn.close:Set conn = Nothing
	Response.Redirect "AD_Index.asp"
End If
%>
</body>
</html>